home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
comm
/
prtcs155.zip
/
WCHAT.REX
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-01-14
|
1KB
|
41 lines
/**/
v="$VER: WChat Rexx Sysop WPL Chat Utility Williamson 54.05"
mailer=upper(GetClip('SHELTER'))
wtit="Chat v"||right(v,5)
pscreen=GetClip('SCREEN')
wspec='CON:0/130/640/90/'wtit' Hit tilde to exit/CLOSE/SCREEN'||pscreen
call close('STDOUT') ; call open('STDOUT',wspec,'W')
call close('STDIN') ; call open('STDIN','*','R')
parse arg port mode .
if port = "" then exit 40
address VALUE mailer||port
'String "$(username)"'
fname=RESULT
if fname="" | fname="FNAME" | fname="RESULT" then fname="TWIT"
'SetStatus NULL:'
'Set chat ONLINE'
uspec='CON:0/40/640/90/User 'fname' Chatting/AUTO/INACTIVE/CLOSE/SCREEN'||pscreen
'SetStatus' '"'uspec'"'
if upper(mode)="SYSOP" then do
'Set chatmode SYSOP'
end
'Send "\r\n"'||wtit||'"\r\n"'
'Send "\r\nSystem operator is online\r\n"'
do forever
parse pull text
if text='~' then leave
'Send' '"\r\n'text'\r\n"'
end
'SetStatus NULL:'
'Set chat OFFLINE'
'Clear chatmode'
'SetStatus "$(openstatus)"'
'Send "\r\nChat terminated, hit RETURN for prompt.\r\n"'
exit